unit FormAdicionarAgendamentoUnit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, Data.DB,
  Vcl.Mask, Vcl.DBLookup, Vcl.Buttons;

type
  TFormAdicionarAgendamento = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    BitBtn1: TBitBtn;
    DBLookupComboBox3: TDBLookupComboBox;
    DBComboBox1: TDBComboBox;
    Label8: TLabel;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    var
    data,hora,funcionario : string;
  end;

var
  FormAdicionarAgendamento: TFormAdicionarAgendamento;

implementation

{$R *.dfm}

uses DataModule_Cliente, DataModule_Agendamento, DataModule_Funcionario,
  DataModule_Servico, DataModule_Controle;

procedure TFormAdicionarAgendamento.BitBtn1Click(Sender: TObject);
begin
  DM_Agendamento.CDSAgendamento.Post;
  DM_Agendamento.CDSAgendamento.ApplyUpdates(0);

  MessageDlg('Agendamento efetuado com sucesso!',mtInformation,[mbOK],0);
  Close;

end;

procedure TFormAdicionarAgendamento.FormShow(Sender: TObject);
begin
  DM_Cliente.CDSCliente.Close;
  DM_Cliente.CDSCliente.Open;

//  DM_Agendamento.CDSAgendamento.Close;
//  DM_Agendamento.CDSAgendamento.Params[0].AsDate := StrToDate(data);
  DM_Agendamento.CDSAgendamento.Open;
  DM_Agendamento.CDSAgendamento.Append;

  DM_Servico.CDSServico.Close;
  DM_Servico.CDSServico.Open;


  DM_Funcionario.CDSFuncionario.Close;
  DM_Funcionario.CDSFuncionario.Open;
  if DM_Funcionario.CDSFuncionario.Locate('NOME',funcionario,[loCaseInsensitive]) then
  begin
    DM_Agendamento.CDSAgendamentoID_FUNCIONARIO.AsString := DM_Funcionario.CDSFuncionarioID_FUNCIONARIO.AsString;
  end;

  DM_Agendamento.CDSAgendamentoDATA.AsDateTime := StrToDate(data);
  DM_Agendamento.CDSAgendamentoHORA.AsDateTime := StrToTime(hora);

  DM_Agendamento.CDSAgendamentoID_AGENDAMENTO.AsInteger := DM_Controle.retornaID('ID_AGENDAMENTO');

  DM_Agendamento.CDSAgendamentoSTATUS.AsString := 'A';


end;

end.
